home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / ugly174.zip / UPGRADE3.BAT < prev    next >
DOS Batch File  |  1992-07-05  |  8KB  |  331 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using QB3.0
  4.  
  5. if %1?==? goto Usage
  6. if %1==Y goto RBBSTest
  7. if %1==y goto RBBSTest
  8. if %1==N goto End
  9. if %1==n goto End
  10.  
  11. :Start
  12.  
  13. if not exist C:\QB3\BLED.EXE goto NoBLED
  14. if not exist ANSIED-3.BAS goto CBled0
  15. if not exist VARMOD.EXE goto NoVARMOD
  16.  
  17. :CBled0
  18.  
  19. if not exist CVAR%1.BAS goto CBled1
  20. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  21. ren CVAR%1.BAS CNFG-VAR.BAS
  22.  
  23. :CBled1
  24.  
  25. if not exist CONFIG.BAS goto CBled2
  26. if not exist CNFG%1.MRG goto CBled2
  27. C:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  28. del CONFIG.BAS
  29. del CNFG%1.MRG
  30. ren CNFG%1.BAS CONFIG.BAS
  31.  
  32. :CBled2
  33.  
  34. if not exist CNFG-SUB.BAS goto RBled0
  35. if not exist CSUB%1.MRG goto RBled0
  36. C:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  37. del CNFG-SUB.BAS
  38. del CSUB%1.MRG
  39. ren CSUB%1.BAS CNFG-SUB.BAS
  40.  
  41. :RBled0
  42.  
  43. if not exist RVAR%1.BAS goto RBled1
  44. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  45. ren RVAR%1.BAS RBBS-VAR.BAS
  46.  
  47. :RBled1
  48.  
  49. if not exist RBBS-PC.BAS goto RBled2
  50. if not exist R-PC%1.MRG goto RBled2
  51. C:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  52. del RBBS-PC.BAS
  53. del R-PC%1.MRG
  54. ren R-PC%1.BAS RBBS-PC.BAS
  55.  
  56. :RBled2
  57.  
  58. if not exist RBBSSUB1.BAS goto RBled3
  59. if not exist RSB1%1.MRG goto RBled3
  60. C:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  61. del RBBSSUB1.BAS
  62. del RSB1%1.MRG
  63. ren RSB1%1.BAS RBBSSUB1.BAS
  64.  
  65. :RBled3
  66.  
  67. if not exist RBBSSUB2.BAS goto RBled4
  68. if not exist RSB2%1.MRG goto RBled4
  69. C:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  70. del RBBSSUB2.BAS
  71. del RSB2%1.MRG
  72. ren RSB2%1.BAS RBBSSUB2.BAS
  73.  
  74. :RBled4
  75.  
  76. if not exist RBBSSUB3.BAS goto RBled5
  77. if not exist RSB3%1.MRG goto RBled5
  78. C:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  79. del RBBSSUB3.BAS
  80. del RSB3%1.MRG
  81. ren RSB3%1.BAS RBBSSUB3.BAS
  82.  
  83. :RBled5
  84.  
  85. if not exist RBBSSUB4.BAS goto RBled6
  86. if not exist RSB4%1.MRG goto RBled6
  87. C:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  88. del RBBSSUB4.BAS
  89. del RSB4%1.MRG
  90. ren RSB4%1.BAS RBBSSUB4.BAS
  91.  
  92. :RBled6
  93.  
  94. if not exist RBBSSUB5.BAS goto ABled1
  95. if not exist RSB5%1.MRG goto ABled1
  96. C:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  97. del RBBSSUB5.BAS
  98. del RSB5%1.MRG
  99. ren RSB5%1.BAS RBBSSUB5.BAS
  100.  
  101. :ABled1
  102.  
  103. if not exist ANSIED-3.BAS goto ArgTest
  104. VARMOD %1
  105. if not exist AED%1.MRG goto ArgTest
  106. C:\QB3\BLED /B/L ANSIED-3.BAS AED%1.MRG AED%1.BAS
  107. del ANSIED-3.BAS
  108. del AED%1.MRG
  109. ren AED%1.BAS ANSIED-3.BAS
  110.  
  111. :ArgTest
  112.  
  113. shift
  114. if %1?==? goto End
  115. if %1==Y goto RBBSTest
  116. if %1==y goto RBBSTest
  117. if %1==N goto End
  118. if %1==n goto End
  119. goto CBled0
  120.  
  121. :RBBSTest
  122.  
  123. if not exist RBBS-PC.BAS goto NoPC
  124. if not exist RBBSSUB1.BAS goto NoSUB1
  125. if not exist RBBSSUB2.BAS goto NoSUB2
  126. if not exist RBBSSUB3.BAS goto NoSUB3
  127. if not exist RBBSSUB4.BAS goto NoSUB4
  128. if not exist RBBSSUB5.BAS goto NoSUB5
  129. if not exist RBBS-VAR.BAS goto NoRVAR
  130.  
  131. if not exist C:\QB3\QB.EXE goto NoQB
  132. if not exist C:\QB3\LIB\BCOM30.LIB goto NoBCOM
  133. REM if not exist C:\QB3\LINK.EXE goto NoLINK
  134. if not exist C:\QB3\GWCOM.OBJ goto NoGWCOM
  135. if not exist 10-NET.OBJ goto No10
  136. if not exist ANSI17.OBJ goto NoANSI
  137. if not exist BDRIVEC2.OBJ goto NoBD
  138. if not exist FOSSCOMM.OBJ goto NoFOSS
  139. if not exist GIVEBK31.OBJ goto NoGIVE
  140. if not exist PC-NET.OBJ goto NoPCNET
  141. if not exist QBARCV6.OBJ goto NoQBARCV
  142. if not exist RBBSDV.OBJ goto NoDV
  143. if not exist RBBSML.OBJ goto NoML
  144. if not exist RBBSUTIL.OBJ goto NoUTIL
  145. if not exist XMODEM.OBJ goto NoXMOD
  146. if not exist RBBSHS.OBJ goto NoHS
  147. if not exist BASNOV.OBJ goto NoNOV
  148.  
  149. :ATest
  150.  
  151. if not exist ANSIED-3.BAS goto RCompile
  152. if not exist MOVCSTR.OBJ goto NoMOVC
  153. if not exist FINDWORD.OBJ goto NoFIND
  154.  
  155. :RCompile
  156.  
  157. echo Compiling RBBS-PC.BAS...
  158. C:\QB3\QB RBBS-PC.BAS,RBBS-PC,NUL,/O/E/S/C:4096;
  159. echo Compiling RBBSSUB1.BAS...
  160. C:\QB3\QB RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O;
  161. echo Compiling RBBSSUB2.BAS...
  162. C:\QB3\QB RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E;
  163. echo Compiling RBBSSUB3.BAS...
  164. C:\QB3\QB RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E;
  165. echo Compiling RBBSSUB4.BAS...
  166. C:\QB3\QB RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E;
  167. echo Compiling RBBSSUB5.BAS...
  168. C:\QB3\QB RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E;
  169. if not exist ANSIED-3.BAS goto DoLink
  170. echo Compiling ANSIED-3.BAS...
  171. C:\QB3\QB ANSIED-3.BAS,ANSIED-3,NUL,/X/O/E;
  172.  
  173. :DoLink
  174.  
  175. echo RBBS-PC+          >  LINK3.DAT
  176. echo RBBSSUB1+         >> LINK3.DAT
  177. echo RBBSSUB2+         >> LINK3.DAT
  178. echo RBBSSUB3+         >> LINK3.DAT
  179. echo RBBSSUB4+         >> LINK3.DAT
  180. echo RBBSSUB5+         >> LINK3.DAT
  181. if exist ANSIED-3.BAS echo ANSIED-3+ >> LINK3.DAT
  182. if exist ANSIED-3.BAS echo MOVCSTR+  >> LINK3.DAT
  183. if exist ANSIED-3.BAS echo FINDWORD+ >> LINK3.DAT
  184. echo C:\QB3\GWCOM.OBJ+ >> LINK3.DAT
  185. echo QBARCV6+          >> LINK3.DAT
  186. echo ANSI17+           >> LINK3.DAT
  187. echo XMODEM+           >> LINK3.DAT
  188. echo RBBSML+           >> LINK3.DAT
  189. echo BDRIVEC2+         >> LINK3.DAT
  190. echo PC-NET+           >> LINK3.DAT
  191. echo 10-NET+           >> LINK3.DAT
  192. echo RBBSUTIL+         >> LINK3.DAT
  193. echo RBBSDV+           >> LINK3.DAT
  194. echo GIVEBK31+         >> LINK3.DAT
  195. echo RBBSHS+           >> LINK3.DAT
  196. echo BASNOV+           >> LINK3.DAT
  197. echo FOSSCOMM,         >> LINK3.DAT
  198. echo RBBS-PC,          >> LINK3.DAT
  199. echo NUL,              >> LINK3.DAT
  200. echo C:\QB3\LIB\BCOM30.LIB /STACK:2048; >> LINK3.DAT
  201.  
  202. LINK @LINK3.DAT
  203.  
  204. :CCompile
  205.  
  206. if not exist CONFIG.BAS goto End
  207. if not exist CNFG-SUB.BAS goto NoCSUB
  208. if not exist CNFG-VAR.BAS goto NoCVAR
  209.  
  210. echo Compiling CONFIG.BAS...
  211. C:\QB3\QB CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S;
  212. echo Compiling CNFG-SUB.BAS...
  213. C:\QB3\QB CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S;
  214. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,C:\QB3\LIB\BCOM30.LIB;
  215.  
  216. goto End
  217.  
  218. :NoQB
  219. echo Missing C:\QB3\QB.EXE... Aborted.
  220. goto End
  221. :NoLINK
  222. echo Missing C:\QB3\LINK.EXE... Aborted.
  223. goto End
  224. :NoBLED
  225. echo Missing C:\QB3\BLED.EXE... Aborted.
  226. goto End
  227. :NoGWCOM
  228. echo Missing C:\QB3\GWCOM.OBJ... Aborted.
  229. :No10
  230. echo Missing 10-NET.OBJ... Aborted.
  231. goto End
  232. :NoANSI
  233. echo Missing ANSI17.OBJ... Aborted.
  234. goto End
  235. :NoBD
  236. echo Missing BDRIVEC2.OBJ... Aborted.
  237. goto End
  238. :NoFOSS
  239. echo Missing FOSSCOMM.OBJ... Aborted.
  240. goto End
  241. :NoGIVE
  242. echo Missing GIVEBK31.OBJ... Aborted.
  243. goto End
  244. :NoPCNET
  245. echo Missing PC-NET.OBJ... Aborted.
  246. goto End
  247. :NoQBARCV
  248. echo Missing QBARCV6.OBJ... Aborted.
  249. goto End
  250. :NoDV
  251. echo Missing RBBSDV.OBJ... Aborted.
  252. goto End
  253. :NoML
  254. echo Missing RBBSML.OBJ... Aborted.
  255. goto End
  256. :NoUTIL
  257. echo Missing RBBSUTIL.OBJ... Aborted.
  258. goto End
  259. :NoXMOD
  260. echo Missing XMODEM.OBJ... Aborted.
  261. goto End
  262. :NoHS
  263. echo Missing RBBSHS.OBJ... Aborted.
  264. goto End
  265. :NoNOV
  266. echo Missing BASNOV.OBJ... Aborted.
  267. goto End
  268. :NoMOVC
  269. echo Missing MOVCSTR.OBJ (for ANSIED-3.BAS)... Aborted.
  270. goto End
  271. :NoFIND
  272. echo Missing FINDWORD.OBJ (for ANSIED-3.BAS)... Aborted.
  273. goto End
  274. :NoPC
  275. echo Missing RBBS-PC.BAS... Aborted.
  276. goto End
  277. :NoSUB1
  278. echo Missing RBBSSUB1.BAS... Aborted.
  279. goto End
  280. :NoSUB2
  281. echo Missing RBBSSUB2.BAS... Aborted.
  282. goto End
  283. :NoSUB3
  284. echo Missing RBBSSUB3.BAS... Aborted.
  285. goto End
  286. :NoSUB4
  287. echo Missing RBBSSUB4.BAS... Aborted.
  288. goto End
  289. :NoSUB5
  290. echo Missing RBBSSUB5.BAS... Aborted.
  291. goto End
  292. :NoRVAR
  293. echo Missing RBBS-VAR.BAS... Aborted.
  294. goto End
  295. :NoCNFG
  296. echo Missing CONFIG.BAS... Aborted.
  297. goto End
  298. :NoCSUB
  299. echo Missing CNFG-SUB.BAS... Aborted.
  300. goto End
  301. :NoCVAR
  302. echo Missing CNFG-VAR.BAS... Aborted.
  303. goto End
  304. :NoBCOM
  305. echo Missing C:\QB3\LIB\BCOM30.LIB... Aborted.
  306. goto End
  307. :NoVARMOD
  308. echo Missing VARMOD.EXE (for ANSIED-3.BAS)... Aborted.
  309. goto End
  310.  
  311. :Usage
  312. echo Usage: UPGRADE3 xxxx zzzz [Y][N]
  313. echo  
  314. echo        where xxxx and zzzz are the upgrade thingies to add to
  315. echo        the end of the MRG filenames.  Add the Y switch if you
  316. echo        want to compile the upgraded files, or N to skip the compile.
  317. echo  
  318. echo        If ANSIED-3.BAS exists, it will be compiled and linked into
  319. echo        the final RBBS-PC.EXE.  If not, not.
  320. echo  
  321. echo        If the CONFIG files exist, they'll also be upgraded with any
  322. echo        applicable merges.  If not, not.
  323. echo  
  324. echo        You can include as many merges as you like on the command
  325. echo        line.
  326. echo  
  327. echo    Ex: UPGRADE3 UGLY EDIT Y to add the UGLY and EDIT merges & compile
  328. goto End
  329.  
  330. :End
  331.